Page 1
ui <- dashboardPage(
dashboardHeader(title = "My Dashboard"),
dashboardSidebar(
# Sidebar content
),
dashboardBody(
# Body content
fluidRow(
column(
width = 7,
box(
title = "Small Panel",
width = NULL,
status = "info",
solidHeader = TRUE,
collapsible = TRUE,
p("Ali Kilmen."),
p("200527086"),
p("uspopage"),
p("5/6/2023")
)
)
)
)
)
server <- function(input, output) {
# Server logic
}
shinyApp(ui, server)
## PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.
Shiny applications not supported in static R Markdown documents
Chart 1
boxplot(Thousands ~ AgeGroup, data = dvp,
theme_dark(),
col = "lightblue",
xlab = "Age Group",
ylab = "Population (Thousands)",
main = "Population Distribution by Age Group")

Chart 2
dvp.h1 <- hist(dvp$Year)

Page 2
Chart 3
gg <- ggplot(dvp, aes(x = Year, y = Thousands)) +
geom_point() +
labs(x = "Year", y = "Population (Thousands)",
title = "Relationship between Year and Population")
## Converting the plot upper to a Interactive plot
ggplotly(gg)
Chart 4
plot(Thousands ~ Year, data = dvp,
xlab = "Year", ylab = "Population (Thousands)",
main = "Relationship between Year and Population")

Page 3
colnames(uspopage)
## [1] "Year" "AgeGroup" "Thousands"
str(uspopage)
## 'data.frame': 824 obs. of 3 variables:
## $ Year : int 1900 1900 1900 1900 1900 1900 1900 1900 1901 1901 ...
## $ AgeGroup : Factor w/ 8 levels "<5","5-14","15-24",..: 1 2 3 4 5 6 7 8 1 2 ...
## $ Thousands: int 9181 16966 14951 12161 9273 6437 4026 3099 9336 17158 ...
# Total population
total_population <- sum(uspopage$Thousands)
# Minimum and maximum age groups
min_agegroup <- levels(uspopage$AgeGroup)[1]
max_agegroup <- levels(uspopage$AgeGroup)[length(levels(uspopage$AgeGroup))]
# Average population by age group
average_population <- tapply(uspopage$Thousands, uspopage$AgeGroup, mean)
# Age group with the highest population
max_population_agegroup <- names(average_population)[which.max(average_population)]
# Display the summary statistics
cat("Summary of the uspopage dataset:\n")
## Summary of the uspopage dataset:
cat("Total population:", total_population, "\n")
## Total population: 17221523
cat("Minimum age group:", min_agegroup, "\n")
## Minimum age group: <5
cat("Maximum age group:", max_agegroup, "\n")
## Maximum age group: >64
cat("Average population by age group:\n")
## Average population by age group:
print(average_population)
## <5 5-14 15-24 25-34 35-44 45-54 55-64 >64
## 14898.34 29066.43 27541.16 25592.10 22637.67 18282.41 13762.10 15419.06
cat("Age group with the highest population:", max_population_agegroup, "\n")
## Age group with the highest population: 5-14
References
ui <- dashboardPage(
dashboardHeader(title = "My Dashboard"),
dashboardSidebar(
# Sidebar content
),
dashboardBody(
# Body content
fluidRow(
column(
width = 6,
box(
title = "Small Panel",
width = NULL,
status = "info",
solidHeader = TRUE,
collapsible = TRUE,
p("https://www.kaggle.com"),
p("https://stackoverflow.com"),
)
)
)
)
)
server <- function(input, output) {
# Server logic
}
shinyApp(ui, server)
Shiny applications not supported in static R Markdown documents